;::
;:sys36864
	;.opt oo
	*= $c000
arg	=704
	lda #<goneu
	ldy #>goneu
	sta 776
	sty 777
	lda #6
	sta 53280
	sta 53281
	lda #<hi
	ldy #>hi
	jmp $ab1e
	.word 0
hi	.byte "\x93\x11 * data-aid  v1.0  c64  von n. heusler"
	.byt 13,13
	.byte " * (c) nh-300490-arr  ein nss-programm"
	.byt 13,13,0
goneu	jsr 115
	cmp #33
	beq neu
	jsr 121
	jmp $a7e7
neu	jsr cmd
	jmp $a7ae
cmd	jsr 115
	ldx #4
cpc	cmp commd,x
	beq thisone
	dex
	bpl cpc
	jmp $b3ae
thisone	txa
	asl
	tax
	lda adr+1,x
	pha
	lda adr,x
	pha
	jmp 115
commd	.byte "zrdsc"
adr	.word off-1,restore-1,data-1,poke-1,check-1
off	lda #228
	ldy #167
	sta 776
	sty 777
	rts
restore	jsr 44426
	jsr 47095
	jsr 42515
	sec
	lda 95
	sbc #1
	ldy 96
	jmp 43044
datat	.byte "data"
data	jsr 44426
	jsr 47095
	sty 181
	sta 182
	jsr $aefd
	jsr 44426
	jsr 47095
	cmp 182
	bcs okay
toolit	jmp $b248
okay	bne nimm
	cpy 181
	beq toolit
	bcc toolit
nimm	sty 166
	sta 167
	jsr $aefd
	jsr 44426
	jsr 47095
	cmp #250
	bcs toolit
	sta 3
	sty 2
	jsr $b7f1
	txa
	beq toolit
	cpx #20
	bcs toolit
	stx 4
	jsr $b7f1
	txa
	beq toolit
	stx 251
	lda #<neuin
	ldy #>neuin
	sta 770
	sty 771
neuin	ldx 2
	lda 3
	sta $62
	stx $63
	ldx #$90
	sec
	jsr $bc49
	jsr $bddd
	ldx #0
	ldy #0
	sty 254
copynum	lda 256,x
	beq copytxt
	sta 511,x
	inx
	bne copynum
copytxt	lda datat,y
	sta 511,x
	inx
	iny
	cpy #4
	bcc copytxt
	lda 4
	sta 252
loopline	stx 5
	ldx 181
	lda 182
	cpx 166
	bne gene
	cmp 167
	beq fertig
gene	sta $62
	stx $63
	ldx #$90
	sec
	jsr $bc49
	jsr 47117
	jsr 48605
	ldx 5
	ldy #1
	sty 254
copydta	lda 256,y
	beq dtadone
	sta 511,x
	inx
	iny
	bne copydta
dtadone	lda #44
	sta 511,x
	inx
	inc 181
	bne no1
	inc 182
no1	dec 252
	bne loopline
finish	lda 2
	clc
	adc 251
	sta 2
	bcc fini
	inc 3
fini	lda #"\x91"
	jsr $ffd2
	dex
	dex
	jsr $aaca
	jsr 42118
	jmp 64738
fertig	lda #<over
	sta 770
	lda #>over
	sta 771
	ldx 5
	lda 254
	bne finish
	ldx #2
	bne finish
over	lda #131
	sta 770
	lda #164
	sta 771
	jmp $e385
poke	jsr restore
	jsr $aefd
	jsr 44426
	jsr 47095
	lda 122
	pha
	lda 123
	pha
	lda 65
	clc
	adc #4
	sta 122
	lda 66
	adc #0
	sta 123
suche	jsr 115
	cmp #131
	beq found
	tax
	bne suche
lend	jsr 115
	jsr 115
	tax
	bne suchweit
outof	ldx #13
	jmp $a437
suchweit	jsr 115
	jsr 115
	jmp suche
found	jsr 115
	cmp #44
	beq found
	cmp #45
	beq schluss
	jsr 47006
	txa
	ldy #0
	sta (20),y
	inc 20
	bne no20
	inc 21
no20	jsr 121
	tax
	bne found
	beq lend
schluss	pla
	sta 123
	pla
	sta 122
	rts
checktxt	.byt 13
	.byte "die pruefsumme ist"
	brk
check	jsr restore
	jsr $b8f7
	jsr facmem
	lda 122
	pha
	lda 123
	pha
	lda 65
	clc
	adc #4
	sta 122
	lda 66
	adc #0
	sta 123
suche2	jsr 115
	cmp #131
	beq found2
	tax
	bne suche2
lend2	jsr 115
	jsr 115
	tax
	bne suchw2
	jmp outof
suchw2	jsr 115
	jsr 115
	jmp suche2
found2	jsr 115
	cmp #44
	beq found2
	cmp #45
	beq schluss2
	jsr $ad8a
	jsr memplus
	jsr facmem
	jsr 121
	tax
	bne found2
	beq lend2
schluss2	pla
	sta 123
	pla
	sta 122
	lda #<checktxt
	ldy #>checktxt
	jsr $ab1e
	jsr memfac
	ldy #1
	jsr $bdd7
	jmp $aad7
facmem	ldx #<arg
	ldy #>arg
	jmp 48084
memfac	lda #<arg
	ldy #>arg
	jmp 48034
memplus	lda #<arg
	ldy #>arg
	jmp 47207